home *** CD-ROM | disk | FTP | other *** search
/ Geek Games #12 / GEGA012.iso / Jogos de Azar / game_224.swf / scripts / DefineButton2_51 / BUTTONCONDACTION on(release).as
Text File  |  2006-01-17  |  531b  |  24 lines
  1. on(release){
  2.    call("/:NewDeal");
  3.    set("_level0/:AllowBet","0");
  4.    tellTarget("_level0/DealerCards")
  5.    {
  6.       gotoAndPlay(2);
  7.    }
  8.    tellTarget("_level0/PlayerCard01/card01")
  9.    {
  10.       gotoAndStop(random("52") + "2");
  11.    }
  12.    tellTarget("_level0/PlayerCard01/Card02")
  13.    {
  14.       gotoAndStop(random("52") + "2");
  15.    }
  16.    set("/:TotalBet",eval("/:CurrentBet"));
  17.    set("/:Money",eval("/:Money") - eval("/:CurrentBet"));
  18.    set("/:movingcard","deal");
  19.    tellTarget("/moving")
  20.    {
  21.       play();
  22.    }
  23. }
  24.